home *** CD-ROM | disk | FTP | other *** search
/ Chip: 2001 Haziran / CHIP Haziran2001.iso / prog / haziran / 20 / setup.exe / {app} / plugins / XQ Shortcut 1.xpl < prev    next >
Encoding:
XSetup plugin  |  2001-03-28  |  2.2 KB  |  83 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="6"
  3. "COUNT"="3"
  4. "UIPATH"="Appearance\Files&Folders\Shortcuts"
  5. "NAME"="Shortcut Arrow"
  6. "VERSION"="1.30"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Display arrow on shortcuts (*.lnk)"
  9. "TEXT 2"="Display arrow on DOS-shortcuts (*.pif)"
  10. "TEXT 3"="Display arrow on Internet shortcuts (*.url)"
  11. "DESCRIPTION 1"="To display the white arrow in the left corner of a shortcut, activate or deactivate the option your are interessted in."
  12. "DESCRIPTION 2"="Note #1: Deactivating the arrow for *.LNK files will also disable any shortcut key defined for your shortcuts!"
  13. "DESCRIPTION 3"="Note #2: Deactivating the arrow for *.URL files will also cause the Start -> Favorites menu to be empty."
  14. "AUTHOR"="Xteq Systems"
  15. "CONTACTURL"="http://www.xteq.com"
  16. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  17. "COMMENT 1"=" "
  18. "COMMENT 2"="Internet Shortcut support added by Pierre Szwarc [szwarc@usa.net]"
  19.  
  20.  
  21.  
  22. Sub Plugin_Initialize 
  23.  s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  24.  if IsEmpty(s)=false then
  25.     SetUIElement 1,true
  26.  end if
  27.  
  28.  s=RegReadValue("HKCR\piffile\IsShortcut")
  29.  if IsEmpty(s)=false then
  30.     SetUIElement 2,true
  31.  end if
  32.  
  33.  s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  34.  if IsEmpty(s)=false then
  35.     SetUIElement 3,true
  36.  end if
  37.  
  38. End Sub
  39.  
  40. Sub Plugin_CheckData(ElementIndex)
  41. End Sub
  42.  
  43. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  44.  b=GetUIElement(1)
  45.  if b=true then
  46.     Call RegWriteValue("HKCR\Lnkfile\IsShortcut","",1)
  47.  else
  48.     s=RegReadValue("HKCR\Lnkfile\IsShortcut")
  49.     if IsEmpty(s)=false then
  50.        Call RegDeleteValue("HKCR\Lnkfile\IsShortcut")
  51.     end if
  52.  end if
  53.  
  54.  b=GetUIElement(2)
  55.  if b=true then
  56.     Call RegWriteValue("HKCR\piffile\IsShortcut","",1)
  57.  else
  58.     s=RegReadValue("HKCR\piffile\IsShortcut")
  59.     if IsEmpty(s)=false then
  60.        Call RegDeleteValue("HKCR\piffile\IsShortcut")
  61.     end if
  62.  end if
  63.  
  64.  b=GetUIElement(3)
  65.  if b=true then
  66.     Call RegWriteValue("HKCR\InternetShortcut\IsShortcut","",1)
  67.  else
  68.     s=RegReadValue("HKCR\InternetShortcut\IsShortcut")
  69.     if IsEmpty(s)=false then
  70.        Call RegDeleteValue("HKCR\InternetShortcut\IsShortcut")
  71.     end if
  72.  end if
  73.  
  74.  Restart
  75. End Sub
  76.  
  77.  
  78. Sub Plugin_Terminate 
  79. End Sub
  80.  
  81.  
  82.  
  83.